;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/8/2012
;;;	   Edited: 12/8/2012
;;;
(DEFUN C:ZTRICK ( / ss10e99)
  (SETQ ss10e99 (cadr(ssgetfirst)))
  (IF (AND ss10e99 (>=(SSLENGTH ss10e99) 1))
    (COMMAND "_move" ss10e99 "" "non" "0,0,10e99" "" "_move" "p" "" "non" "0,0,-10e99" "")
    (PROGN
      (SETQ ss10e99 (SSGET))
      (COMMAND "_move" ss10e99 "" "non" "0,0,10e99" "" "_move" "p" "" "non" "0,0,-10e99" "")
    )
  )
  (PRINC)
)
